﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class Method1
    Implements ICloneable

    Private m_ArrayPdiam(19) As Double '粒子直径，最多20个数据
    Private m_ArrayPhi(19) As Double '粒子所点分数
    Private m_ArrayPdens(19) As Double '粒子的密度
    ''' <summary>
    ''' 粒子直径，最多20个数据
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrayPdiam() As Double()
        Get
            Return Me.m_ArrayPdiam
        End Get
        Set(ByVal value As Double())
            Me.m_ArrayPdiam = value
        End Set
    End Property
    ''' <summary>
    ''' 粒子所点分数
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrayPhi() As Double()
        Get
            Return Me.m_ArrayPhi
        End Get
        Set(ByVal value As Double())
            Me.m_ArrayPhi = value
        End Set
    End Property
    ''' <summary>
    ''' 粒子的密度
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrayPdens() As Double()
        Get
            Return Me.m_ArrayPdens
        End Get
        Set(ByVal value As Double())
            Me.m_ArrayPdens = value
        End Set
    End Property
    Public Sub New()
        '粒子直径，最多20个数据
        m_ArrayPdiam(0) = 2.26
        m_ArrayPdiam(1) = 4.66
        m_ArrayPdiam(2) = 8.97
        m_ArrayPdiam(3) = 18.56
        m_ArrayPdiam(4) = 23.97
        m_ArrayPdiam(5) = 37.33
        m_ArrayPdiam(6) = 47.53
        m_ArrayPdiam(7) = 57.74
        '粒子所点分数
        m_ArrayPhi(0) = 0.01
        m_ArrayPhi(1) = 0.076
        m_ArrayPhi(2) = 0.201
        m_ArrayPhi(3) = 0.105
        m_ArrayPhi(4) = 0.138
        m_ArrayPhi(5) = 0.066
        m_ArrayPhi(6) = 0.034
        m_ArrayPhi(7) = 0.362
        '粒子的密度
        m_ArrayPdens(0) = 0.085
        m_ArrayPdens(1) = 0.645
        m_ArrayPdens(2) = 1.707
        m_ArrayPdens(3) = 0.892
        m_ArrayPdens(4) = 1.172
        m_ArrayPdens(5) = 0.56
        m_ArrayPdens(6) = 0.289
        m_ArrayPdens(7) = 3.074
    End Sub
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New Method1
        ReDim obj.m_ArrayPdiam(Me.m_ArrayPdiam.Length - 1) '粒子直径，最多20个数据
        For i As Integer = 0 To Me.m_ArrayPdiam.Length - 1
            obj.m_ArrayPdiam(i) = Me.m_ArrayPdiam(i)
        Next

        ReDim obj.m_ArrayPhi(Me.m_ArrayPhi.Length - 1) '粒子所点分数
        For i As Integer = 0 To Me.m_ArrayPhi.Length - 1
            obj.m_ArrayPhi(i) = Me.m_ArrayPhi(i)
        Next
        ReDim obj.m_ArrayPdens(Me.m_ArrayPdens.Length - 1) '粒子的密度
        For i As Integer = 0 To Me.m_ArrayPdens.Length - 1
            obj.m_ArrayPdens(i) = Me.m_ArrayPdens(i)
        Next
        Return obj
    End Function
End Class
